home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / Intro to HyperCard 2.0 / card_7234.txt < prev    next >
Text File  |  1990-08-24  |  5KB  |  253 lines
  1. -- card: 7234 from stack: in.0
  2. -- bmap block id: 29836
  3. -- flags: 0000
  4. -- background id: 10646
  5. -- name: SneakPreview
  6. ----- HyperTalk script -----
  7. on returnKey
  8.   send mouseUp to cd btn "YesBtn"
  9. end returnKey
  10.  
  11. on enterKey
  12.   send mouseUp to cd btn "YesBtn"
  13. end enterKey
  14.  
  15. on doSneakPreview
  16.   put 20 into theWait
  17.   set cursor to none
  18.   push card
  19.  
  20.   visual dissolve
  21.   go stack "‚Ä¢HC 2.0-5"
  22.   doAnimate
  23.   wait theWait*2
  24.   repeat with n = 6 down to 1
  25.     visual dissolve
  26.     go cd ("sneak." & n)
  27.     wait theWait
  28.   end repeat
  29.  
  30.   --lock screen
  31.   --go cd "sneak.1"
  32.   --unlock screen with dissolve
  33.   wait theWait
  34.   lock screen
  35.   hide btn "mask"
  36.   unlock screen with dissolve
  37.   wait theWait*2
  38.   size1
  39.   wait theWait*2
  40.   lock screen
  41.   show btn "mask"
  42.   unlock screen with dissolve
  43.   wait theWait
  44.  
  45.   lock screen
  46.   go cd "sneak.2"
  47.   unlock screen with dissolve
  48.   wait theWait
  49.   lock screen
  50.   show cd fld "text"
  51.   unlock screen with dissolve
  52.   wait theWait
  53.   showWindows
  54.   wait theWait*4
  55.   lock screen
  56.   hide cd fld "text"
  57.   show btn "windowMask1"
  58.   show btn "windowMask2"
  59.   unlock screen with dissolve
  60.   wait theWait
  61.  
  62.   lock screen
  63.   go cd "sneak.3"
  64.   unlock screen with dissolve
  65.   wait theWait
  66.   lock screen
  67.   hide btn "mask"
  68.   unlock screen with dissolve
  69.   wait theWait*2
  70.   changeFonts
  71.   wait theWait*2
  72.   lock screen
  73.   show btn "mask"
  74.   unlock screen with dissolve
  75.   wait theWait
  76.  
  77.   lock screen
  78.   go cd "sneak.4"
  79.   unlock screen with dissolve
  80.   wait theWait
  81.   lock screen
  82.   show cd fld "text"
  83.   unlock screen with dissolve
  84.   wait theWait*2
  85.   runIt
  86.   wait theWait*2
  87.   lock screen
  88.   hide cd fld "text"
  89.   unlock screen with dissolve
  90.   wait theWait
  91.  
  92.   lock screen
  93.   go cd "sneak.5"
  94.   unlock screen with dissolve
  95.   wait theWait*2
  96.   typeIt
  97.   wait theWait*2
  98.   lock screen
  99.   put empty into cd fld "text"
  100.   unlock screen with dissolve
  101.   wait theWait
  102.  
  103.   lock screen
  104.   go cd "sneak.6"
  105.   unlock screen with dissolve
  106.   wait theWait
  107.   lock screen
  108.   show cd fld "text"
  109.   unlock screen with dissolve
  110.   wait theWait*2
  111.   runIt
  112.   wait theWait*2
  113.   lock screen
  114.   hide cd fld "text"
  115.   unlock screen with dissolve
  116.   wait theWait
  117.  
  118.   lock screen
  119.   go cd "sneak.7"
  120.   unlock screen with dissolve
  121.   wait theWait
  122.   lock screen
  123.   show cd fld "text"
  124.   unlock screen with dissolve
  125.   wait theWait*2
  126.   runIt
  127.   wait theWait*2
  128.   lock screen
  129.   hide cd fld "text"
  130.   unlock screen with dissolve
  131.   wait theWait
  132.  
  133.   visual dissolve
  134.   go cd "sneakLast"
  135.  
  136.   lock screen
  137.   pop card
  138.   unlock screen with dissolve
  139.  
  140. end doSneakPreview
  141.  
  142.  
  143. -- part 2 (button)
  144. -- low flags: 00
  145. -- high flags: 0001
  146. -- rect: left=473 top=304 right=336 bottom=505
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 28467 / 28467
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: grey2
  155.  
  156.  
  157. -- part 4 (button)
  158. -- low flags: 00
  159. -- high flags: 0001
  160. -- rect: left=473 top=286 right=315 bottom=505
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 28467 / 28467
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: 
  169.  
  170.  
  171. -- part 3 (button)
  172. -- low flags: 00
  173. -- high flags: 2000
  174. -- rect: left=472 top=281 right=312 bottom=504
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 3720 / 3720
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: 
  183. ----- HyperTalk script -----
  184. on mouseUp
  185.   visual wipe right
  186.   go card "getting started"
  187. end mouseUp
  188.  
  189.  
  190.  
  191. -- part 1 (button)
  192. -- low flags: 00
  193. -- high flags: 0000
  194. -- rect: left=0 top=0 right=343 bottom=512
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: 
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   beep
  206. end mouseUp
  207.  
  208.  
  209.  
  210. -- part 5 (button)
  211. -- low flags: 00
  212. -- high flags: 2000
  213. -- rect: left=209 top=235 right=255 bottom=300
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 0 / 0
  216. -- text alignment: 1
  217. -- font id: 0
  218. -- text size: 12
  219. -- style flags: 0
  220. -- line height: 16
  221. -- part name: NoBtn
  222. ----- HyperTalk script -----
  223. on mouseUp
  224.   go cd "before You Start"
  225.   visual wipe left
  226.   go card "getting started"
  227. end mouseUp
  228.  
  229.  
  230.  
  231. -- part 6 (button)
  232. -- low flags: 00
  233. -- high flags: 2000
  234. -- rect: left=320 top=235 right=255 bottom=411
  235. -- title width / last selected line: 0
  236. -- icon id / first selected line: 0 / 0
  237. -- text alignment: 1
  238. -- font id: 0
  239. -- text size: 12
  240. -- style flags: 0
  241. -- line height: 16
  242. -- part name: YesBtn
  243. ----- HyperTalk script -----
  244. on mouseUp
  245.   go cd "before You Start"
  246.   set cursor to none
  247.   doSneakPreview
  248.   go card "before You Start"
  249.   visual wipe right
  250.   go card "getting started"
  251. end mouseUp
  252.  
  253.